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Mesac. Mu - Jumps, Load/Store, Read/Write, Binary/Unary/Stack Operators 
Last modified by Johnsson - July 26, 1978 1:57 PM 



Jumps 



The following requirements are assumed: 

1) J2-J9, JB are usable (in that order) as subroutine 
returns (by JEQx and JNEx). 

2) since J2-J9 and JB are opcode entry points, 

they must meet requirements set by opcode dispatch. 



Jn - jump PC-relative 



11,2, JnA, Jbranchf ; 



J2: L+-ONE, :JnA; 

J3: L<-2, :JnA; 

J4: L<-3, :JnA; 

J5: L<-4, :JnA; 

J6: L>5, :JnA; 

J7: L<-6, :JnA; 

J8: L«-7, :JnA; 

J9: L«-10, :JnA; 

JnA: L<-M-l, :Jbranchf; A-aligned - adjust distance 



JB - jump PC-relative by alpha, assuming: 
JB is A-aligned 

Note: JEQB and JNEB come here with branch (1) pending 



ll.l.JBx; shake JEQB/JNEB branch 

11,1, Jbranch ; must be odd (shakes IR*- below) 

JB: THb, :JBx; 

JBx: L*-400 OR T; <-DISP will do sign extension 

IR<-M; 400 above causes branch (1) 

L<-DISP-1, :Jbranch; L: ib (sign extended) - 1 



JW - jump PC-relative by alphabeta, assuming: 
if JW is A-aligned, B byte is irrelevant 
alpha in B byte, beta in A byte of word after JW 



JW: IR*-srl, :FetchAB; returns to JWr 

JWr: K-ALLONES+T, :Jbranch; L: alphabeta-1 



Jump destination determination 

L has (signed) distance from even byte of word addressed by mpc+1 



1 1 , 2 , Jf orward , Jbackward ; 
11,2, Jeven , Jodd ; 

Jbranch: T<-0+l, SH<0; dispatch fwd/bkwd target 

Jbranchf: SINK*~M , BUSODD, TASK, :Jforward; dispatch even/odd target 

Jforward: temp<-L RSH 1, :Jeven; stash positive word offset 

Jbackward: temp<~L MRSH 1, :Jeven; stash negative word offset 



Jeven : 
Jodd: 



T*-temp+l, :NOOP; 
T<-temp+l, :nextXB; 



fetch and execute even byte 
fetch and execute odd byte 
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JZEQB - if TOS (popped) * 0, jump PC-relative by alpha, assuming: 
stack has precisely one element 

JZEQB is A-aligned (also ensures no pending branch at entry) 



11,2 .JZEQBne , JZEQBeq ; 

JZEQB: SINK4-stkO, BUS=0; test TOS * 0 

L<-stkp~l, TASK, -.JZEQBne; 

JZEQBne: stkp<-L, .-nextA; no branch, alignment »> nextA 

JZEQBeq: stkp*-L, :JB; branch, pick up alpha 



JZNEB - if TOS (popped) ~= 0, jump PC-relative by alpha, assuming: 
stack has precisely one element 

JZNEB is A-aligned (also ensures no pending branch at entry) 



11,2, JZNEBne, JZNEBeq; 

JZNEB: SINK«-stkO, BUS = 0; test TOS = 0 

L«-stkp-l, TASK, : JZNEBne ; 



JZNEBne: 
JZNEBeq: 



stkp<-L, :JB; 
stkp<-L, :nextA; 



branch, pick up alpha 

no branch, alignment s > nextA 
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JEQn - if TOS (popped) ■ TOS (popped), jump PC-relative by n, assuming: 
stack has precisely two elements 



ii, 2 


JEQnB, JEQnA; 








17,1 


JEQNEcom; 






shake IR<- dispatch 


JEQ2 


IR*-srO, 


L<-T, 


: JEQnB; 


returns to J2 


JEQ3 


IR*-srl, 


L>T, 


: JEQnB; 


returns to J3 


JEQ4 


IR<-sr2, 


L-T, 


: JEQnB; 


returns to J4 


JEQ5 


IR<-sr3, 


L>T, 


: JEQnB; 


returns to J5 


JEQ6 


IR<-sr4, 


L«-T. 


: JEQnB; 


returns to J6 


JEQ7 


IR*-sr5, 


L*-T, 


: JEQnB; 


returns to J7 


JEQ8 


IR<-sr6, 


LH\ 


: JEQnB; 


returns to J8 


JEQ9 


IR<-sr7, 




: JEQnB; 


returns to J9 



JEQB - if TOS (popped) - TOS (popped), jump PC-relative by alpha, assuming: 
stack has precisely two elements 

JEQB is A-aligned (also ensures no pending branch at entry) 



JEQB: 



IR«-srlO, : JEQnA; 



returns to JB 



JEQ common code 
11,2, JEQcom, JNEcom; 



JEQnB: 
JEQnA: 



temp*-L RSH 1, L<-T, : JEQNEcom; 
temp<-L, L«-T, : JEQNEcom; 



11,2, JEQne, JEQeq; 



JEQcom: 

JEQne: 
JEQeq : 



L*-stkp-T-l, : JEQne; 

SINK<-temp, BUS, TASK, :Setstkp; 
stkp<-L, IDISP, :JEQNExxx; 



return points from JEQNEcom 

temp:0, L:l (for JEQNEcom) 
temp:l, L:l (for JEQNEcom) 



L: old stkp - 2 

no jump, reset stkp 

jump, set stkp, then dispatch 



JEQ/JNE common code 



!7,1, JEQNEcom; 
11,2, JEQcom, JNEcom; 



appears above with JEQn 
appears above with JEQB 



JEQNEcom: T<-stkl; 

L<-stkO-T, SH=0; 
T+-0+1, SH = 0, :JEQcom; 



dispatch EQ/NE 

test outcome and return 



JEQNExxx: 



SINK<~temp, BUS, :J2; 



even/odd dispatch 



Mesac .mu 



2-Sep-78 17:21:54 



Page 4 



; JNEn - if TOS (popped) ~» TOS (popped), jump PC-relative by n, assuming: 
; stack has precisely two elements 

!l,2, JNEnB, JNEnA; 



0NE2 


IR<-srO, 


L*-T, 


JNEnB; 


returns 


to 


J2 


JNE3 


IR*-srl, 


L<-T, 


JNEnB; 


returns 


to 


J3 


JNE4 


IR«-sr2, 


L<-T, 


JNEnB; 


returns 


to 


J4 


JNE5 


IR<-sr3, 


L<-T, 


JNEnB; 


returns 


to 


J5 


JNE6 


IR<-sr4, 


L«-T, 


JNEnB; 


returns 


to 


J6 


JNE7 


IR<-sr5, 


L*-T, 


JNEnB; 


returns 


to 


J7 


JNE8 


IR«-sr6, 


L<-T, 


JNEnB; 


returns 


to 


J8 


JNE9 


IR*-sr7, 


L*-T, 


JNEnB; 


returns 


to 


J9 



JNEB - if TOS (popped) = TOS (popped), jump PC-relative by alpha, assuming: 
stack has precisely two elements 

JNEB is A-aligned (also ensures no pending branch at entry) 
JNEB: IR*-srlO, : JNEnA ; returns to JB 



JNE common code 



JNEnB: temp<-L RSH 1, L>0, : JEQNEcom; temp:0, L:0 

JNEnA: temp<-L, L<-0, : JEQNEcom; temp:l, L:0 

!l,2,JNEne,JNEeq; 

JNEcom: L*-stkp-T-l, :JNEne; L; old stkp 



JNEne: 
JNEeq: 



stkp<-L, IDISP, :JEQNExxx; 
SINK*-temp, BUS, TASK, :Setstkp; 



jump, set stkp, then dispatch 
no jump, reset stkp 
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JrB - for r in {L,LE,G,GE,UL,ULE,UG,UGE} 

if TOS (popped) r TOS (popped), jump PC-relative by alpha, assuming: 
stack has precisely two elements 

JrB is A-aligned (also ensures no pending branch at entry) 



The values loaded into IR are not returns but encoded actions: 



Bit 12: 



Bit 15: 



0 a > branch if carry zero 

1 => branch if carry one (mask value: 10) 

0 «> perform add-compl ement before testing carry 

1 => perform subtract before testing carry (mask value: 1) 
(These values were chosen because of the masks available for use with <-DISP 

in the existing constants ROM. Note that IR*- causes no dispatch.) 



JLB: 


IR<-10, :Jscale; 


adc , 


branch 


if 


carry 


one 


JLEB: 


IR<-11, :Jscale; 


sub, 


branch 


if 


carry 


one 


JGB: 


IR<~ONE, :Jscale; 


sub , 


branch 


if 


carry 


zero 


JGEB: 


IR*-0, :Jscale; 


adc , 


branch 


if 


carry 


zero 


JULB: 


IR<-10, :Jnoscale; 


adc , 


branch 


if 


carry 


one 


JULEB: 


IR«-lt, :Jnoscale; 


sub , 


branch 


if 


carry 


one 


JUGB: 


IR«-ONE, : Jnoscale; 


sub , 


branch 


if 


carry 


zero 


JUGEB : 


IR<-0, -.Jnoscale; 


adc , 


branch 


if 


carry 


zero 



Comparison "subroutine": 



Il,2,Jcz, Jco; 
11,2, Jnobz, Jbz; 
!l,2,Jbo, Jnobo; 

Jscale: T+-77777, :Jadjust; 

Jnoscale: T<-ALL0NES , -.Jadjust; 



Jad just : 



L<-stkl+T+l; 
temp*-L; 

SINIO-DISP, BUSODD; 
T<-stkO+T+l, : Jade; 



L:stkl + (0 or 100000) 
dispatch ADC/SUB 



Jade: 
Jsub : 



L<-temp-T-l , :Jcommon; 
L<-temp-T, :Jcommon; 



perform add complement 
perform subtract 



Jcommon: T<-0NE; 

L«-stkp-T-l, ALUCY; 

SINK<-DISP, SINKHgmlO, BUS=0, TASK , :Jcz; 



Jcz: 
Jco : 

Jnobz: 
Jbz: 
Jbo: 
Jnobo: 



stkp<-L, 
stkp<-L, 



: Jnobz; 
: Jbo; 



L*-mpc+l, TASK, :nextAput; 
THb, :JBx; 
T<-ib, :JBx; 

L*-mpc+l, TASK, :nextAput; 



warning: not T^-0+1 
test ADC/SUB outcome 
dispatch on encoded bit 12 

carry is zero ( stkp*-stkp-2) 
carry is one ( stkp«-stkp-2) 

no jump, al ignment=>nextAa 

jump 

jump 

no jump, al ignment=>nextAa 
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JIB - see Principles of Operation for description 
assumes : 

stack contains precisely two elements 

if JIB is A-aligned, B byte is irrelevant 

alpha in B byte, beta in A byte of word after JIB 



11,1, Jlcom; 
JIB: 



IR<-msrO, :JIcom; 



11,2, JIBr , JlWr; 
11,2, JIBe, JIBo; 

JIBr: 



JIBe: 
JIBo: 



temp<-L RSH 1; 
MAR<-temp+T; 
SINK<-stkO, BUSODD; 
T<-377, :JIBe; 

L<-MD AND NOT T, TASK; 
temp<-L LCY 8; 
L*-temp-l, :Jbranchf; 
L*-MD AND T, :JnA; 



fetch <<cp>+alphabeta+X/2> 
test which byte we want 
byte mask 

save left byte 
swap halves 

save right byte 



JIW - see Principles of Operation for description 
assumes : 

stack contains precisely two elements 

if JIW is A-aligned, B byte is irrelevant 

alpha in B byte, beta in A byte of word after JIW 



JIW: 
JlWr: 



IR<-srl, :JIcom; 

MAR*-M+T ; 
NOP; 

L<-MD-1, : Jbranchf ; 



fetch <<cp>+alphabeta+X> 
L has offset now 



JI common code 

assumes only 2 callers 



11,2, JIuge, JIu 1 ; 

Jlcom: 
Jlcomx: 



JIuge: 
JIul : 



L<-stkp-T~l, TASK, :JIcomx; 
stkp+-L; 
T<-stkO; 
L<-MARHnpc+l; 
mpc+-L; 
L*-stkl-T-l; 
ALUCY; 

T+-MD, :JIuge; 

L<-mpc+l, TASK, :nextAput; 

L<-cp+T, TASK; 

temp<-L; 

T«-temp, IDISP; 
L<-stkO, :JIBr; 



stkp*-stkp-2 

load alphabeta 

do unsigned compare 

out of bounds - to 'nextA' 
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; L o a d s 

; Note: These instructions keep track of their parity 

11,2, LLyB , LLyA ; keep ball 1 in air 

11,2, LGyB , LGyA ; keep ball 1 in air 

11.2,LI0xB,LI0xA; keep ball 1 in air 



LLn - push <<1 p>+n> 



; Note: Ip is offset by 2, hence the adjustments below 



LLO: MARHp-T-1, :pushMD; 

LL1: MARHp-1, :pushMD; 

LL2 : MARHp, :pushMD; 

LL3: MARHp + 1, rpushMD; 

LL4: MAR«-lp+T+l, :pushMD; 

LL5: T<-3, : LLyB ; 

LL6: T<-4, : LLyB ; 

LL7: T<-5, : LLyB ; 

LLyB: MARHp+T, :pushMD; 

LLyA: MARHp+T, :pushMDA; 



LLB - push <<1p>+a1pha> 



LLB: IR<-sr4, :Getalpha; returns to LLBr 

LLBr: T<-nl pof f set+T+1 , : LLyB ; to undiddle Ip 



LLDB - push <<lp>+alpha>, push <<1 p>+a1 pha+l> 

LLDB is A-aligned (also ensures no pending branch at entry) 



LLDB: 



T<-lp; 

T<-n1poff set+T+1, :Dpush; 
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LGn - push <<gp>+n> 



; Note: gp is offset by 1, hence the adjustments below 



LGO: MAR«-gp-l, :pushMD; 

LG1: MAR«-gp , :pushMD; 

LG2: MAR«-gp+l, :pushMD; 

LG3: MAR<-gp+T+l, :pushMD; 

LG4: T<-3, : LGyB ; 

LG5: TM, : LGyB ; 

LG6: T<-5, : LGyB ; 

LG7: T<-6, : LGyB ; 

LGyB: MAR<-gp+T , :pushMD; 

LGyA: MAR<-gp+T , :pushMDA; 



LGB - push <<gp>+a1pha> 



LGB: IR<-sr5, :Geta1pha; returns to LGBr 

LGBr: T<-ngpof f set+T+1 , : LGyB ; to undiddle gp 



LGDB - push <<gp>+alpha>, push <<gp>+al pha+l> 

LGDB is A-aligned (also ensures no pending branch at entry) 



LGDB: 



T+-gp; 

T<-ngpoff set+T+1 , :Dpush; 
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Lin - push n 



; Note: all BUS dispatches use old stkp value, not incremented one 



LIO: L*-stkp+l, BUS, :LI0xB; 

LI1: L«-stkp+l, BUS , :pushTlB; 

LI2: T<-2, :pushTB; 

LI3: T<-3, :pushTB; 

LI4: TM, :pushTB; 

LI5: T<-5, :pushTB; 

LI6: T<-6, :pushTB; 

LIOxB: stkp<-L, L<-0 , TASK, :pushO; 

LIOxA: stkp*-L, BUS=0, L<-0 , TASK, :pushO; BUS»0 keeps branch pending 



LIN1 - push -1 



LIN1: T«-ALLONES , :pushTB; 



LIB - push alpha 



LIB: IR«-sr2, :Getalpha; returns to pushTB 

; Note: pushTIB will handle 

; any pending branch 



LINB - push (alpha OR 377B8) 



LINB: IR<-sr26, :Getalpha; returns to LINBr 

LINBr: T<-177400 OR T, :pushTB; 



LIW - push alphabeta, assuming: 

if LIW is A-aligned, B byte is irrelevant 

alpha in B byte, beta in A byte of word after LIW 



LIW: 
LlWr: 



IRmisrO, : FetchAB; 
L*-stkp+l, BUS, ipushTIA; 



returns to LlWr 
duplicates pushTA, but 
because of overlapping 
return points, we 
can't use it 
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Stores 



SLn - <<lp>+n><-T0S (popped) 



H,2,SLxB,SLxA; keep ball 1 in air 

; Note: 1p is offset by 2, hence the adjustments below 

SLO: MARHp-T~l, :StoreB; 

SL1: MARHp-1, :StoreB; 

SL2: MARHp, :StoreB; 

SL3: MARHp+1, :StoreB; 

SL4: MARHp+T+1, :StoreB; 

SL5: T<-3, :SLxB; 

SL6: H, :SLxB; 

SL7: T<-5, :SLxB; 

SLxB: MARHp+T, :StoreB; 

SLxA: MAR<-1p+T, :StoreA; 



SLB - <<1p>+alpha><-T0S (popped) 



SLB: IR<-sr6, :Geta1pha; returns to SLBr 

SLBr: T*-n1 pof f set+T+1 , :SLxB; 



SLDB - <<lp>+alpha+l><-TOS (popped), <<1 p>+a1 pha>«-TOS (popped), assuming: 
SLDB is A-aligned (also ensures no pending branch at entry) 



SLDB: 



T<-lp; 

T«-nl pof f set+T+1 , :Dpop; 
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SGn - <<gp>+n><-TOS (popped) 



; Note: gp is offset by 1, hence the adjustments below 



SGO: MARt-gp-1, :StoreB; 

SGI: MAR+-gp, :StoreB; 

SG2: MAR*-gp+l, :StoreB; 

SG3: MAR<-gp+T+l, :StoreB; 



SGB - <<gp>+a1pha><-T0S (popped) 



ll.l.SGBx; drop ball 1 

SGB: IR<-sr7, :Geta1pha; returns to SGBr 

SGBr: "f>ngpof f set+T+1 , :SGBx; 

SGBx: MAR<-gp+T, :StoreB; 



SGDB - <<gp>+alpha+l>*-TOS (popped), <<gp>+a1 pha><-TOS (popped), assuming: 
SGDB is A-aligned (also ensures no pending branch at entry) 



SGDB: 



T<-gp; 

T<-ngpof f set+T+1 , :Dpop; 
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Binary operations 



; Warning! Before altering this list, be certain you understand the additional addressing 
; requirements imposed on some of these return locationsl However, it is safe to add new 
; return points at the end of the list. 

1 37 , 40 , ADDr , SUBr , ANDr ,0Rr , XORr , MULr , DIVr , LDIVr .SHIFTr , EXCHr , RSTRr , WSTRr , WSBr , WSOr , WSFr ,WFr , 
WSDBrb.WFSrb, , ,,,,,,,,,,,,; 



Binary operations common code 
Entry conditions: 

Both IR and T hold return number. (More precisely, entry at 
'BincomB' requires return number in IR, entry at 'BincomA' requires 
return number in T.) 
Exit conditions: 

left operand in L (M), right operand in T 

stkp positioned for subsequent push (i.e. points at left operand) 
dispatch pending (for pushO) on return 
if entry occurred at BincomA, IR has been modified so 
that mACSOURCE will produce 1 



dispatches on stkp-1, so Binpopl ■ 1 mod 20B 

I17,20,Binpop,Binpopl,Binpop2,Binpop3,Binpop4,Binpop5,Binpop6,Binpop7, 
1 1, 2, BincomB, BincomA; 

1 4, 1 .Bincomx; shake IR<- in BincomA 



BincomB: 


L<-T<-stkp-l , :Bincomx; 


value for dispatch into Binpop 


Bincomx: 


stkp<-L, L+-T; 






L*-M-l, BUS, TASK; 


L:value for push dispatch 


Bincomd: 


temp2<-L, :Binpop; 


stash briefly 


BincomA: 


L+-2000 OR T; 


make mACSOURCE produce 1 


Binpop : 


IR*-M, :BincomB; 




Binpopl : 


T<-stkl; 






L*-stk0, :Binend; 




Binpop2: 


T>stk2; 






L>stkl, .-Binend; 




Binpop3 : 


T*-stk3; 






L<~stk2, :Binend; 




Binpop4: 


T<-stk4; 






L«-stk3, .-Binend; 




Binpop5 : 


T<-stk5; 






L<-stk4, :Binend; 




Binpop6 : 


1>stk6; 






L<-stk5, :Binend; 




Binpop7 : 


T*-stk7; 






L*-stk6, :Binend; 




Binend : 


SINK<-DISP, BUS; 


perform return dispatch 




SINK<-temp2, BUS, : ADDr ; 


perform push dispatch 
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; ADD - replace <TOS> with sum of top two stack elements 

ADD: IR«-T*-retO, :BincomB; 

ADDr : 1>M+T, mACSOURCE, TASK, :pushO; M addressing unaffected 

; ADD01 - replace stkO with <stkO>+<s tkl> 

ll.l.ADDOlx; drop ball 1 

ADD01: T«-stkl-l, :ADD01x; 

ADDOlx: T«-stkO+T+l, SH«0; pick up ball 1 

L<-stkp-l, :pushTlB; no dispatch => to pushO 

; SUB - replace <TOS> with difference of top two stack elements 

SUB: IR<-T«-retl, -.BincomB; 

SUBr: L<-M-T, mACSOURCE, TASK, :pushO; M addressing unaffected 

; AND - replace <TOS> with AND of top two stack elements 

AND: IR<-T<-ret2, :BincomB; 

ANDr: L<-M AND f, mACSOURCE, TASK, :pushO; M addressing unaffected 

; OR - replace <TOS> with OR of top two stack elements 

OR: IR<-T<~ret3, :BincomB; 

ORr: L<-M OR T, mACSOURCE, TASK, :pushO; M addressing unaffected 

; XOR - replace <TOS> with XOR of top two stack elements 

XOR: IR+-T<-ret4, :BincomB; 

XORr: L>M XOR T, mACSOURCE, TASK, :pushO; M addressing unaffected 
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MUL - replace <TOS> with product of top two stack elements 
high-order bits of product recoverable by PUSH 



17.1, MULDIVcoma; 

11.2, GoR0MMUL,6oR0MDIV; 
!7,2,MULx,DIVx; 

MUL: IR<-T<-ret5, :BincomB; 

MULr : ACIHl, L<-T, :MULDIVcoma; 

MULDIVcoma: AC2+-L, L<-0, :MULx;* 

MULx: AC0<-L, T<-Q+l. :MULDIVcomb; 

DIVx: AC0<-L, T<-0, BUS*0, : MULDIVcomb ; 

MULDIVcomb: L+-MULDIVretl oc+T , SWMODE, : GoROMMUL; 

GoROMMUL: POL, : ROMMUL ; 

GoROMDIV: POL, :R0MDIV; 

MULDIVret: :MULOIVretl; 

MULDIVretl: T«-AC1; 

L«-stkp+l; 

L*-T, SINK<-M, BUS; 

T*-AC0, :dpush; 



shakes stack dispatch 
also shakes bus dispatch 

stash multiplicand 

stash multiplier or divisor 

AC0*-0 keeps ROM happy 
BUS=0 »> GoROMDIV 

prepare return address 

go to ROM multiply 
go to ROM divide 

No divide - someday a trap 
perhaps, but garbage now. 
Normal return 



Notel not a subroutine 
cal 1 , but a direct 
dispatch . 



DIV - push quotient of top two stack elements (popped) 
remainder recoverable by PUSH 



DIV: 
DIVr : 



IR<-T<-ret6, :BincomB; 

AC1«-L, L<-T, BUS=0, :MULDIVcoma; 



BUS=0 => DIVx 



LDIV - push quotient of <T0S-1> , , <T0S-2>/<T0S> (all popped) 
remainder recoverable by PUSH 



LDIV: 
LDIVf : 

LDIVr : 



IR<-sr27, :Popsub; 
AC2<-L; 
IR<-T<-ret7, 
AC1<~L, L«-T 



: BincomB ; 
IR«-0, :DIVx; 



get divisor 
stash it 

L:low bits, T:high bits 
stash low part of dividend 
and ensure mACSOURCE of 0. 
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SHIFT - 


replace <TOS> with 


<T0S-1> 


shifted by 


<TOS> 


<TOS> 


> 0 «> left shift, 


<TOS> < 


0 => right 


shift 



I7,l,SHIFTx; shakes stack dispatch 

ll,2,Lshift,Rshift; 

tl,2,DoShift,Shiftdone; 

H,2,DoRight,DoLef t; 

11, l.Shif tdonex; 



SHIFT: IR<-T*-retlO, :BincomB; 

SHIFTr: temp<-L, L*-T, TASK, :SHIFTx; 

SHIFTx: count<-L; 

L<-T<-count ; 

L«-0-T, SH<0; 

IR<-srl, :Lshift; 

Lshift: L<-37 AND T, TASK, :Shiftcom; 

Rshift: T<-37, IR<-37; 

L<-M AND T, TASK, :Shiftcom; 

Shiftcom: count<-L, :Shiftloop; 

Shiftloop: L<-count-l, BUS = 0; 

counts, IDISP, :DoShift; 
DoShift: L<-temp, TASK, .-DoRight; 

De-Right: temp*-L RSH 1, :Shiftloop; 

DoLeft: temp<-L LSH 1, :Shiftloop; 



L: value, T: count 



L: -count, T: count 
IR<- causes no branch 

mask to reasonable size 

equivalent to IR*-msrO 
mask to reasonable size 



test for completion 



Shiftdone : 
Shif tdonex : 



SINK<-temp2, BUS, :Shiftdonex; 
L<-temp, TASK, :pushO; 



dispatch to push result 
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Double-Precision Arithmetic 



ll,2,DAStail .DCOMPr ; 



returns from DSUBsub 



DADD - add two double-word quantities, assuming: 
stack contains precisely 4 elements 



1 1,1, DADDx; 

1 1 , 2 .DADDnocarry .DADDcarry ; 



DADD: 
DADDx: 



DADDnocarry: 
DADDcarry : 

DASCtail : 
DAStail : 
Dsetstkp : 



T<-stk2, : DADDx ; 
L<-stkO+T; 
stkO<-L, ALUCY; 
T<-stk3, : DADDnocarry ; 

L<-stkl+T, TASK, :DASCtail; 
L«-stkl+T+l, TASK, .-DASCtail; 

stkl<-L, :DAStail; 
T<-2; 

L<-stkp~T, TASK, :Setstkp; 



shake B/A dispatch 



T:low bits of right operand 

L:low half of sum 

stash, test carry 

T:high bits of right operand 

L:high half of sum 
L:high half of sum 

high-order carry is lost 
adjust stack pointer 



DSUB - subtract two double-word quantities, assuming: 
stack contains precisely 4 elements 



11.1, DSUBsub; 

DSUB: IR<-msrO, :DSUBsub; 



shake B/A dispatch 



DCOMP - compare two double-word quantities, assuming: 
stack contains precisely 4 elements 

result left on stack is -1, 0, or +1 (single-precision) 
(i.e. result = sign( stkl , , s tkO DSUB stk3,,stk2) ) 



ll,2,DC0MPnz,DC0MPz; 
il,2,DC0MPpos,DC0MPdone; 



DCOMP: 
DCOMPr: 



IR<-srl, .-DSUBsub; 

L«-stkl, BUS=0; 

L<-0-l, SH<0, .-DCOMPnz; 



perform subtract first 
test high word ■ 0 
test high word < 0 



DCOMPnz: 
DCOMPz: 



T<-3, :DCOMPpos; 

L<-stk0, BUS=0, : DCOMPnz ; 



non-zero, pending branch + , 
zero, test low word s 0 



DCOMPpos: 
DCOMPdone: 



L<-0+l, :DC0MPdone; 
stkO*-L, :Dsetstkp; 



positive 
stash result 



Double-precision subtract subroutine 



! 1 , 2,DSUBborrow,DSUBnoborrow; 



DSUBsub: T«-stk2, :DSUBx; 

DSUBx: L*-stk0-T; 

Stk0«-L, ALUCY; 

T<-stk3, :DSUBborrow; 



T:low bits of right operand 
L:low half of difference 
borrow - ~carry 
T:high bits of right operand 



DSUBborrow: L*-stkl-T-l, IDISP, TASK, :DASCtail; 

DSUBnoborrow: L*-stkl-T, IDISP, TASK, :DASCtail; 



L:high half of difference 
L : high half of difference 
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Reads 



; Note: RBr must be oddl 

; Rn - T0S«-«T0S>+n> 

RO: T<-0, SH-0, : RBr ; 

Rl: T<-0NE, SH-0, : RBr ; 

R2: T<-2, SH=0, : RBr ; 

R3: T*-3, SH«0, : RBr ; 

R4: TM, SH=0, : RBr ; 



; RB - TOS*-«TOS>+alpha>, assuming: 

H,2,ReadB,ReadA; keep ball 1 in air 

RB: IR<~srl5, :Geta1pha; returns to RBr 

RBr: L<-stkp-l, BUS, :ReadB; 

ReadB: stkp<-L, : MAStkT; to pushMD 

ReadA: stkp*-L, BUS = 0, : MAStkT; to pushMDA 



; RDB - temp*-<T0S>+a1 pha, push <<temp>>, push <<temp>+l>, assuming: 
; RDB is A-aligned (also ensures no pending branch at entry) 

RDB: IR<-sr30, :Popsub; returns to Dpush 



; RDO - temp*-<T0S>, push <<temp>>, push <<temp>+l> 

RDO: IR*-sr32, :Popsub; returns to RDOr 

RDOr : L<-0, :Dpusha; 

\ 



Mesac.mu 



2-Sep-78 17:21:54 



Page 



; RILP - push <«lp>+alpha[0-3]>+alpha[4-7]> 



RILP: 
RILPr : 



L>retO, :Spl italpha; 
THp, :RIPcom; 



get two 4-bit values 
T:address of local 2 



RIGP - push «<gp>+alpha[0-3]>+alpha[4~7]> 



13,l,IPcom; 

RIGP: 
RIGPr : 

RIPcom: 

IPcom: 

IPcomx: 



L<-retl, :Splitalpha; 
l>gp+l, :RIPcom; 

IR<-msrO, :IPcom; 

T*--3+T+l; 
MAR«-lefthalf+T; 
L<-righthalf ; 
T<-MD , IDISP; 
MAR<-M+T, :pushMD; 



shake IR*- at WILPr 

get two 4-bit values 
T:address of global 2 

set up return to pushMD 

T:address of local or global 
start memory cycle 

T: local /global value 
start fetch/store 



; RILO - push <<<lp»> 
il,2,RILxB,RILxA; 

RILO: MAR<-lp-T-l, :RILxB; 



RILxB: 
RILxA: 



IR<-msrO, L<-0 , :IPcomx; 
IR*-srl, L<-srl AND T, :IPcomx; 



fetch local 0 
to pushMD 

to pushMDA, L<-0(1) 



; RXLP - TOS<-<<TOS>+<<lp>+alpha[0-3]>+alpha[4-7]> 



RXLP: 

RXLPra: 

RXLPrb: 



L>ret3, :Splitalpha; 
IR<-sr34, :Popsub; 
L<-righthalf+T, TASK; 
righthalf<-L, :RILPr; 



will return to RXLPra 
fetch TOS 
L:TOS+alpha[4-7] 
now act 1 ike RILP 
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Writes 



Wn - <<TOS> (popped)+n><-<TOS> (popped) 



11 ,2,WnB,WnA; keep ball 1 in air 

WO: T«-0, :WnB; 

Wl: T<-ONE, :WnB; 

W2: T*-2, :WnB; 

WnB: IR<-sr2, :Wsub; returns to StoreB 

WnA: IR*-sr3, :Wsub; returns to StoreA 

; Write subroutine: 

17,l,Wsubx; shake IR«- dispatch 

Wsub: L<-stkp-l, BUS, :Wsubx; 

Wsubx: stkp<-L, IOISP. :MAStkT; 



; WB - <<T0S> (popped)+alpha><-<TOS-l> (popped) 

WB: IR<-srl6, :Getalpha; returns to WBr 

WBr: :WnB; branch may be pending 



WSB - act like WB but with stack values reversed, assuming: 

WSB is A-aligned (also ensures no pending branch at entry) 



!7,l,WSBx; 

WSB: 
WSBr : 

WSBx: 

WScom: 

WScoma: 



IR<-T<-retl4, :BincomA; 
T«-M, L*-T, :WSBx; 

MARH b+T , :WScom; 
temp«-L; 
| L*-stkp-l; 
MD«-temp ; 

mACSOURCE, TASK, :Setstkp; 



shake stack dispatch 
alignment requires BincomA 



WSO - act like WSB but with alpha value of zero 
!7.1,WS0x; 



WSO: 
WSOr: 



IR<-T<~retl5 , :BincomB; 
T«-M, L<-T, :WS0x; 



shake stack dispatch 



WSOx: 



MAR<-T , : WScom; 
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WILP - «lp>+alpha[0-3]>+alpha[4-7] «- <TOS> (popped) 



WILP: 
WILPr: 



I>ret2, :Splitalpha; 

IR<-sr2; 

THp, :IPcom; 



get halves of alpha 
IPcom will exit to StoreB 
prepare to undiddle 



WXLP - <TOS>+«lp>+alpha[0-3]>+alpha[4-7] <- <T0S-1> (both popped) 



WXLP: 

WXLPra: 

WXLPrb: 



L<-ret4, :Splitalpha; 
IR<-sr35, :Popsub; 
L«-righthalf+T, TASK; 
righthalf<-L, :WILPr; 



get halves of alpha 
fetch TOS 
L:T0S+alpha[4-7] 
now act 1 ike WILP 



WDB - temp<-alpha+<TOS> (popped), pop into <temp>+l and <temp>, assuming: 
WDB is A-aligned (also ensures no pending branch at entry) 



WDB: 



IR<-sr31, :Popsub; 



returns to Dpop 



WDO - temp<-<T0S> (popped), pop into <temp>+l and <temp> 



WDO: 
WDOr: 



L<-ret6, TASK, :Xpopsub; 
L<-0, :Dpopa; 



returns to WDOr 



WSDB - like WDB but with address below data words, assuming: 

WSDB is A-aligned (also ensures no pending branch at entry) 



17,1, WSDBx; 

WSDB: 
WSDBra: 

WSDBrb: 
WSDBx: 



IR«-sr24, :Popsub; 
saveret<-L ; 

IR«-T«-ret20, :BincomA; 
T<-M t L<-T, : WSDBx; 
MAR«-T«-ib+T+l; 
temp<-L, L*-T; 
temp2H_, TASK; 
MD<-saveret ; 
MAR*-temp2-l, :WScoma; 



get low data word 

stash it briefly 

alignment requires BincomA 

L:high data, T:address 

start store of low data word 

temp: high data 

temp2 : updated address 

stash low data word 

start store of high data word 
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INC - TOS <- <T0S>+1 



INC: IR<-srl4, :Popsub; 

INCr: T+-0+T+1, :pushTB; 

; NEG - TOS -<TOS> 

NEG: L<-retll, TASK, :Xpopsub; 

NEGr: L<-0-T, :Untai1; 

; DBL - TOS «- 2*<T0S> 

DBL: IR<-sr25, :Popsub; 

DBLr : L<-M+T, :Untail; 

; Unary operation common code 

Untail: T<-M, :pushTB; 
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Stack and Miscellaneous Operations 



PUSH - add 1 to stack pointer 



11,1, PUSHx; 

PUSH: 
PUSHx: 



L<-stkp+l, BUS, : PUSHx; 
SINKHb, BUS«0, TASK, :Setstkp; 



BUS checks for overflow 
pick up ball 1 



POP - subtract 1 from stack pointer 



POP: 



L<-stkp-l, SH = 0, TASK, :Setstkp; 



L«0 <■> branch 1 pending 
need not check stkp a 0 



DUP - temp<-<TOS> (popped), push <temp>, push <temp> 



tl.l.DUPx; 

DUP: 
DUPx: 



IR<-sr2, :DUPx; 

L<-stkp, BUS, TASK, :Popsuba; 



returns to pushTB 
don't pop stack 



EXCH - exchange top two stack elements 



ll.l.EXCHx; 

EXCH: 
EXCHx: 

EXCHr: 



IR<-retll, :EXCHx; 
L<-stkp-l ; 

L«-M+l, BUS, TASK, :Bincomd; 
T<-M, L«-T, :dpush; 



drop ball 1 



dispatch on stkp-1 

set temp2«-stkp 

Note: dispatch using temp2 



LADRB - push alpha+lp (undiddled) 



ll.l.LADRBx; 

LADRB: 
LADRBr : 
LADRBx: 



IR<-srlO, :6etalpha; 
T*-nlpoff set+T+1 , : LADRBx; 
L<-lp+T, :Untai1; 



shake branch from Getalpha 
returns to LADRBr 



GADRB - push alpha+gp (undiddled) 
11,1, GADRBx; 



GADRB: 

GADRBr: 

GADRBx: 



IR<-srll, .-Getalpha; 
T+-ngpof f set+T+1 , : GADRBx ; 
L«-gp+T, :Untail; 



shake branch from Getalpha 
returns to GADRBr 
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String Operation 



I7,l,STRsub; 

Il,2,STRsubA,STRsubB; 

U,2,RSTRrx,WSTRrx; 



STRsub: 



STRsubA: 
STRsubB: 

STRsubcom: 



L«-stkp-l; 

stkp<-L; 

L«-ib+T; 

SINK<-M, BUSODD, TASK; 
count«-L RSH 1, :STRsubA; 

L>177400, ;STRsubcom; 
L4-377 , :STRsubcom; 

T<-temp ; 

MAR*-count+T; 

T<-M; 

SINK<-DISP, BUSODD; 
mask<-L, SH<0, : RSTRrx ; 



shake stack dispatch 

update stack pointer 
compute index and offset 



left byte 
right byte 

get string address 

start fetch of word 

move mask to more useful place 

dispatch to caller 

dispatch B/A, mask for WSTR 



RSTR - push byte of string using base (<TOS-l>) and index (<TOS>) 
assumes RSTR is A-aligned (no pending branch at entry) 



11,2, RSTRB , RSTRA; 

RSTR: IR<-T<-retl2, :BincomB; 

RSTRr: temp<-L, :STRsub; stash string base address 

RSTRrx: L+-MD AND T, TASK, : RSTRB ; isolate good bits 

RSTRB: temp<-L, :RSTRcom; 

RSTRA: temp*-L LCY 8, :RSTRcom; right- justify byte 

RSTRcom: T<-temp, :pushTA; go push result byte 



WSTR - pop <TOS-2> into string byte using base (<TOS-l>) and index (<T0S>) 
assumes WSTR is A-aligned (no pending branch at entry) 



ll,2,WSTRB,WSTRA; 



WSTR: 

WSTRr: 

WSTRrx: 



IR<-T<-retl3, :BincomB; 

temp*-L, :STRsub; 

L+-MD AND NOT T, :WSTRB; 



stash string base 
isolate good bits 



WSTRB: 
WSTRA: 



temp2*-L, L*-retO, TASK, :Xpopsub; 
temp2<-L, L<-retO+l, TASK, :Xpopsub; 



stash them, return to WSTRrB 
stash them, return to WSTRrA 



WSTRrA: 



taskhole*-L LCY 8; 
T<-taskhole, : WSTRrB ; 



move new data to odd byte 



WSTRrB: 



T^-mask . T; 
L*-temp2 OR T; 
T*-temp; 
MAR<-count+T; 
TASK; 

MD<-M, :nextA; 



retrieve string address 
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; F i e 1 d Instructions 

1 1 , 2 , RFrr ,WFrr ; returns from Fieldsub 

17,1, Fieldsub; shakes stack dispatch 

; 17,1, WFr; (required by WSFr) is implicit in ret!7 (I) 



RF - push field specified by beta in word at <TOS> (popped) + alpha 
if RF is A-aligned, B byte is irrelevant 
alpha in B byte, beta in A byte of word after RF 



RF: IR<-srl2, :Popsub; 

RFr: L<-retO, -.Fieldsub; 

RFrr: T>mask.T, ipushTA; alignment requires pushTA 



WF - pop data in <T0S-1> into field specified by beta in word at <T0S> (popped) + alpha 
if WF is A-aligned, B byte is irrelevant 
alpha in B byte, beta in A byte of word after WF 

1 1 ,2 .WFnzct ,WFret ; - see location-specific definitions 



WF: 
WFr: 

WFrr : 



WFnzct: 
WFret: 



IR<-T<-retl7 , :BincomB; 
newfield<~L, L<-retO+l, :Fieldsub; 

T<-mask ; 

L<-M AND NOT T; 

temp<-L; 

T<-newf iel d .T; 

L«-temp OR T, TASK; 

CYCOUT*-L; 

THndex, BUS=0; 

L<-WFretloc, :WFnzct; 

POL; 

L«-20-T, SWMODE; 
T<-CYC0UT, : RAMCYCX ; 
MAR<-f rame ; 
L<-stkp-l ; 

MD+-CYC0UT, TASK, : JZNEBeq ; 



L:new data, T:address 
(actually, L*-retl) 



set old field bits to zero 

stash result 

save new field bits 

merge old and new 

stash briefly 

get position, test for zero 
get return address from ROM 



stash return 

L:remaining count to cycle 

go cycle remaining amount 

start memory 

pop remaining word 

stash data, go update stkp 



WSF - like WF, but with top two stack elements reversed 
if WSF is A-aligned, B byte is irrelevant 
alpha in B byte, beta in A byte of word after WSF 



WSF: 
WSFr: 



IR<-T<-retl6, :BincomB; 
L*-T, T*-M, :WFr; 



L:address, T:new data 
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RFS - like RF, but with a word containing alpha and beta on top of stack 
if RFS is A-aligned, B byte is irrelevant 



RFS: 
RFSra: 

RFSrb: 



L>retl2, TASK, :Xpopsub; 
temp*-L; 

L<-retl3, TASK, :Xpopsub; 

L<-retO, BUS«0, :Fieldsub; 



get alpha and beta 
stash for WFSa 
T: address 

returns quickly to WFSa 



WFS - like WF , but with a word containing alpha and beta on top of stack 
if WFS is A-aligned, B byte is irrelevant 



!l,2,Fieldsuba,WFSa; 



WFS: 
WFSra: 

WFSrb: 
WFSa: 



L<-retl4, TASK, 
temp<-L; 
IR*-T*-ret21 

newfield<-L, L<-retO+l, BUS=0, :Fieldsub; 
f rame<-L; 
T<-177400; 

L«-temp AND T, T<-temp, :Getalphab; 



: Xpopsub ; 



: BincomB ; 
L<-retO+l, BUS=0, 



get alpha and beta 
stash temporarily 
L:new data, T:address 
returns quickly to WFSa 
stash address 

to separate alpha and beta 
L:alpha, T:both 
returns to Fieldra 



RFC - like RF, but uses <cp>+<al pha>+<TOS> as address 
if RFC is A-aligned, B byte is irrelevant 
alpha in B byte, beta in A byte of word after RF 



RFC: 
RFCr: 



L*-retl6, TASK, .-Xpopsub; 

L<-cp+T; 

T«-M, : RFr ; 



get index into code segment 
T: address 
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Field instructions common code 

Entry conditions: 

L holds return offset 
T holds base address 

Exit conditions: 

mask: right- justif ied mask 

frame: updated address, including alpha 

index: left cycles needed to right- justify field [0-15] 

L,T: data word from location <frame> cycled left <index> bits 



Fieldsub: temp2<-L, L<-T, IR<-msrO, TASK, :Fieldsuba; 

Fieldsuba: frame<-L, :GetalphaA; 

» 

Fieldra: L<-ret5; 

saveret*-L, :Splitcomr; 
Fieldrb: T<-righthalf ; 

MAR<-MASKTAB+T ; 

T*-lefthalf+T+l; 

L*-17 AND T; 

index<-L; 

L«-MD , TASK; 

mask<-L; 

T<-f rame; 

Lt-MARHb+T; 

f rame«-L; 

L*-Fieldretloc; 

POL; 

T+-MD, SWMODE; 
LHndex, :RAMCYCX; 
Fieldrc: SINK*-temp2, BUS; 

L*-T<-CYCOUT, :RFrr; 



stash return 
stash base address 
T: beta, ib: alpha 

get two halves of beta 

index for MASKTAB 

start fetch of mask 

L:left-cycle count 

mask to 4 bits 

stash position 

L:mask for caller's use 

stash mask 

get base address 

add alpha 

stash updated address for WF 
return location from RAMCYCX 

data word into T for cycle 
count to cycle, go do it 
return dispatch 
cycled data word in L and T 



